00100	**********  DRAW  ************* 5/74
00200		TO GET A .DMP COPY OF THIS PROGRAM LOG IN ON MSS,LCS AND TYPE
00300	'DO DOD.DO'.
00400	
00500	THE PROGRAM ALLOWS YOU TO DRAW PICTURES WITH  THE  LIGHT  PEN  OR  BY
00600	ENTERING SPECIFIC X,Y COORDS. AT THE KEYBOARD.
00700	
00800	WHEN THE PROGRAM STARTS IT WILL PRINT A LIST OF MOST OF THE INITITIAL
00900	COMMANDS.
01000	
01010	**************  D (DRAW)  *********************
01020	
01100	TO  BEGIN  A  DRAWING  TYPE  'D'.  
01200	(******  ALWAYS FOLLOW COMMANDS WITH <CR>. *******)
01300	
01400	TO HAVE A BACKGROUND REFERENCE GRID APPEAR TYPE 'D 0 1'.    ANY  TIME
01500	'1'  IS GIVEN AS THE THIRD ITEM AT THIS POINT IN THE PROGRAM THE GRID
01600	WILL APPEAR.  TO DELETE THE GRID TYPE '-1' IN THIS POSITION.
01700	
01800		THE GRID GIVES 2X2 SQUARES.  THE LONGER HORIZANTAL LINES  ARE
01900	REFERENCES  FOR  THE  MUSICAL  STAFF.  POINT 0,0 WILL BE AT THE LOWER
02000	LEFT-CENTER OF THE SCREEN WHERE THE CURSOR FIRST  APPEARS.   THE  1ST
02010	NUMBER  AFTER  'D' IS  A  SIZE FACTOR.  (ZERO WILL GIVE SIZE 9.)  ANY
02020	NON-ZERO NUMBER IN THIS POSITION WILL CHANGE THE SIZE.
02100	
02200	WHEN DRAWING, EACH NEW POINT MAY BE SET EITHER BY MOVING  THE  CURSOR
02300	WITH THE LIGHT PEN OR BY TYPING IN THE X AND Y POSITION.  IMMEDIATELY
02400	AFTER A POINT IS SET IT MAY BE SHIFTED UP, DOWN,  LEFT  OR  RIGHT  BY
02500	TYPING U n, D n, L n OR R n. (ONLY ONE OF THIS TYPE OF COMMAND MAY BE
02600	GIVEN AT A TIME - AND ONLY IMMEDIATELY AFTER THE POINT  IS  SET.)  TO
02700	BACK  UP  THROUGH  A  DRAWING TYPE 'B'.  (AFTER TYPING 'B', THE LEFT,
02800	RIGHT, UP, DOWN COMMANDS WILL NOT WORK UNTIL A  NEW  POINT  HAS  BEEN
02900	SET.)
03000	
03100	TO EXIT FROM DRAWING MODE TYPE 'X'.
03110	
03115	**************  Q (BACKGROUND)  *********************
03120	
03130	TYPE  'Q'  TO  PUT  UP  THE  CURRENT  DISPLAY AS BACKGROUND.  YOU MAY
03135	CONTINUE TO ADD TO THE  DRAWING  OR  EDIT  IT  IN  ANY  WAY  BUT  THE
03140	BACKGROUND  WILL  REMAIN  UNCHANGED.  THIS WORKS JUST LIKE THE 'GRID'
03145	FEATURE ABOVE. USE '-1' AS ABOVE TO MAKE THE BACKGROUND GO AWAY.
03150	
03175	**************  Z (ZERO THE DRAWING)  *********************
03180	
03185	TYPE 'Z' TO ZERO THE DRAWING IF YOU WISH TO RETAIN THE BACKGROUND
03190	ONLY.  THIS IS USEFUL FOR USING AN OLD DRAWING AS GUIDE FOR POSITIONING
03195	A NEW DRAWING, ETC.
03200	
03210	**************  E (EDIT)  *********************
03220	
03300	 'G' OR <CR> = GET.  'A'=ADD TO COMBINED FILE.
03400	PC=PLOT  PX=XGP(→PLOT.BIN)  PXS,PCS=PLOT SMOOTHED CONTURE
03500	 PXZ,PCZ=PLOT SMOOTHED CONTURE AND FILL IT.
03600	IN DRAW SECTION: J=JUMP(INVIS. VECT.)
03700	 F=JUMP AND BEGIN FILL SECTION.  FX=EXIT AND FILL ALL.
03800	SINGLE ITEM IS RESTRICTED TO 200 WDS. 10 ITEMS PER FILE.
03900	PXS,PCS=SMOOTH ONLY;  PXZ,PCZ=SMOOTH AND FILL
04000	 TYPE .001, .001 TO SET POS. TO 0, -20, -26 IS ORIGINAL.
04100	100	FORMAT(' G=GET, GM=GET MORE, =S=SAVE, D=DRAW, X=EXIT, M=MOVE,'/'
04200		1 P=PLOT, PX=XGP, C=COMBINE, A=ADD TO COMB. FILE
04300		1, DEL=DEL. FROM COMB.'/
04400		1' F=FILL,  E=EDIT,   N1=SIZE, N2=1=GRID '/)
04500	 TYPE REL FOR RELATIVE VECTORS, O=ORDINARY
04600	 TYPE SM TO SMOOTH, SMX=ERASE STRAIGHT LINES TEMPORARILY.
04700	 TYPE 3RD NUM=1 FOR JUMPS
04800	 IF 3RD NUM=2 -- BEGIN FILL SECTION
04900	B=BACKUP, J=JUMP, CR=SET POINT, X=EXIT, LRUD-N
05000	 F=FILL IT, H=GO TO HOME-NUM, N=GO TO NEXT(AFTER AN 'H')
05100	 Z=ZERO IN ON NEARBY POINT, P=GO TO PREVIOUS, C=CLOSE THE AREA
05200	 D=EXTEND DRAWING,  F=START FILLER OUTLINE, SM=SMOOTH IT
05300	 TYPE 'FX' TO FILL ORIGINAL OUTLINE AND EXIT.
05400		IF(ZK.NE.0)NZ=-1
05500	 WILL STAY IN "Z" MODE UNLESS NUMBER APPEARS.
05600	 TYPE "A" OR ":" TO ALTER
05700	 TYPE "G"=GROUP CHANGE) TO MAKE RELATIVE CHANGE STICK
05800	 , THEN <CR>S. ANY OTHER LETTER TO ESCAPE
05900	 S=STEP AHEAD(N) (-N GOES BACK)
06000	 IF IN "REL" MODE TYPE "O" BEFORE USING LTPEN
06100	N OR B=BACKUP, J=INSERT OR ALTER TO JUMP, C=ALTER JUMP TO CONT.
06200	40	FORMAT(' POINT OK? (Y,N,B,J,F OR C) ',$)
06300	Y=YES,N=NO,B=BACKUP,J=JUMP,F=START FILL,C=CONTINUE(NULLIFY JUMP)
06400	NOW ASSUMES → IF NO ← POINT FOUND
06500	 -1=GO BACK TO FILL-EDITOR
06600	
06700	
06800	******* TO MOVE SECTIONS OF THE DRAWING WHILE IN EDIT MODE *******
06900	
07000	WHEN A(LTER), I(NSERT), ETC. IS REQUESTED TYPE 'M n1 n2' TO MOVE 
07100	POINTS n1 THROUGH n2.  THE NUMBERS OF THE POINTS MAY BE FOUND BY
07200	STEPPING THROUGH WITH <CR>S.  IF n1 IS MADE NEGATIVE, THE SET OF
07300	POINTS WILL BE ESTABLISHED AS A "MOVE ITEM". THE FIRST ONE WILL
07400	BE NUMBER 1, THE SECOND NUMBER 2, ETC.  ONCE ESTABLISHED, THEY
07500	MAY BE REFERRED TO BY NUMBER.  HENCE IF n2 IS ZERO ALL THE POINTS
07600	OF ITEM n1 WILL BE MOVED.
07700	
07800		M -11 25
07900		(SETS UP MOVE ITEM 1. FOLLOW PROMPT TO MOVE IT.)
08000	
08100		M 1
08200		(NOW THE POINTS 11-25 CAN BE MOVED AGAIN.)
08300	
08400		M -37 42
08500		(THIS SETS UP ITEM 2)